C------------------------------------ VISCOSITIY TABLE OF AR -----HOT
      DATA (VIS(N,1),N=1,50)
     & /0.6911D-04, 1.6911D-04, 2.6966D-04, 3.4682D-04, 4.1187D-04,
     &  4.6918D-04, 5.2099D-04, 5.6864D-04, 6.1298D-04, 6.5463D-04,
     &  6.9403D-04, 7.3150D-04, 7.6777D-04, 8.0301D-04, 8.3735D-04,
     &  8.7089D-04, 9.0374D-04, 9.3595D-04, 9.6760D-04, 9.9873D-04,
     &  1.0294D-03, 1.0597D-03, 1.0895D-03, 1.1190D-03, 1.1482D-03,
     &  1.1771D-03, 1.2057D-03, 1.2340D-03, 1.2621D-03, 1.2899D-03,
     &  1.3176D-03, 1.3450D-03, 1.3723D-03, 1.3993D-03, 1.4262D-03,
     &  1.4530D-03, 1.4795D-03, 1.5060D-03, 1.5323D-03, 1.5584D-03,
     &  1.5844D-03, 1.6103D-03, 1.6361D-03, 1.6618D-03, 1.6874D-03,
     &  1.7128D-03, 1.7382D-03, 1.7635D-03, 1.7886D-03, 1.8137D-03/
      DATA (VIS(N,1),N=51,100)
     & /1.8387D-03, 1.8636D-03, 1.8884D-03, 1.9131D-03, 1.9377D-03,
     &  1.9623D-03, 1.9868D-03, 2.0112D-03, 2.0355D-03, 2.0597D-03,
     &  2.0839D-03, 2.1080D-03, 2.1320D-03, 2.1560D-03, 2.1799D-03,
     &  2.2037D-03, 2.2274D-03, 2.2511D-03, 2.2746D-03, 2.2981D-03,
     &  2.3216D-03, 2.3449D-03, 2.3681D-03, 2.3913D-03, 2.4144D-03,
     &  2.4373D-03, 2.4602D-03, 2.4829D-03, 2.5055D-03, 2.5279D-03,
     &  2.5502D-03, 2.5723D-03, 2.5942D-03, 2.6159D-03, 2.6372D-03,
     &  2.6583D-03, 2.6790D-03, 2.6994D-03, 2.7193D-03, 2.7386D-03,
     &  2.7574D-03, 2.7755D-03, 2.7929D-03, 2.8094D-03, 2.8249D-03,
     &  2.8393D-03, 2.8526D-03, 2.8645D-03, 2.8749D-03, 2.8837D-03/
      DATA (VIS(N,1),N=101,150)
     & /2.8907D-03, 2.8957D-03, 2.8986D-03, 2.8993D-03, 2.8974D-03,
     &  2.8930D-03, 2.8858D-03, 2.8756D-03, 2.8626D-03, 2.8462D-03,
     &  2.8265D-03, 2.8034D-03, 2.7769D-03, 2.7471D-03, 2.7136D-03,
     &  2.6765D-03, 2.6361D-03, 2.5925D-03, 2.5456D-03, 2.4955D-03,
     &  2.4425D-03, 2.3867D-03, 2.3289D-03, 2.2682D-03, 2.2060D-03,
     &  2.1419D-03, 2.0766D-03, 2.0100D-03, 1.9424D-03, 1.8746D-03,
     &  1.8063D-03, 1.7380D-03, 1.6700D-03, 1.6028D-03, 1.5363D-03,
     &  1.4706D-03, 1.4060D-03, 1.3429D-03, 1.2816D-03, 1.2219D-03,
     &  1.1638D-03, 1.1080D-03, 1.0541D-03, 1.0021D-03, 9.5232D-04,
     &  9.0483D-04, 8.5942D-04, 8.1640D-04, 7.7533D-04, 7.3647D-04/
      DATA (VIS(N,1),N=151,201)
     & /6.9952D-04, 6.6477D-04, 6.3205D-04, 6.0121D-04, 5.7235D-04,
     &  5.4521D-04, 5.1987D-04, 4.9618D-04, 4.7395D-04, 4.5337D-04,
     &  4.3415D-04, 4.1629D-04, 3.9967D-04, 3.8430D-04, 3.7007D-04,
     &  3.5681D-04, 3.4462D-04, 3.3334D-04, 3.2298D-04, 3.1349D-04,
     &  3.0478D-04, 2.9667D-04, 2.8935D-04, 2.8257D-04, 2.7633D-04,
     &  2.7064D-04, 2.6541D-04, 2.6072D-04, 2.5636D-04, 2.5244D-04,
     &  2.4888D-04, 2.4562D-04, 2.4268D-04, 2.4003D-04, 2.3765D-04,
     &  2.3549D-04, 2.3356D-04, 2.3182D-04, 2.3028D-04, 2.2890D-04,
     &  2.2767D-04, 2.2657D-04, 2.2561D-04, 2.2472D-04, 2.2394D-04,
     &  2.2325D-04, 2.2263D-04, 2.2205D-04, 2.2154D-04, 2.2107D-04,
     &  2.2059D-04/
C     DATA (VIS(N,1),N=201,250)
C    & /2.2059D-04, 2.2013D-04, 2.1970D-04, 2.1927D-04, 2.1878D-04,
C    &  2.1832D-04, 2.1779D-04, 2.1722D-04, 2.1663D-04, 2.1595D-04,
C    &  2.1523D-04, 2.1446D-04, 2.1361D-04, 2.1269D-04, 2.1168D-04,
C    &  2.1057D-04, 2.0934D-04, 2.0803D-04, 2.0662D-04, 2.0509D-04,
C    &  2.0346D-04, 2.0173D-04, 1.9987D-04, 1.9792D-04, 1.9585D-04,
C    &  1.9370D-04, 1.9145D-04, 1.8913D-04, 1.8667D-04, 1.8417D-04,
C    &  1.8157D-04, 1.7892D-04, 1.7619D-04, 1.7343D-04, 1.7060D-04,
C    &  1.6773D-04, 1.6485D-04, 1.6190D-04, 1.5894D-04, 1.5599D-04,
C    &  1.5303D-04, 1.5006D-04, 1.4709D-04, 1.4416D-04, 1.4122D-04,
C    &  1.3835D-04, 1.3546D-04, 1.3264D-04, 1.2983D-04, 1.2705D-04/
C     DATA (VIS(N,1),N=251,301)
C    & /1.2436D-04, 1.2169D-04, 1.1910D-04, 1.1656D-04, 1.1408D-04,
C    &  1.1167D-04, 1.0931D-04, 1.0701D-04, 1.0475D-04, 1.0258D-04,
C    &  1.0045D-04, 9.8402D-05, 9.6403D-05, 9.4469D-05, 9.2601D-05,
C    &  9.0785D-05, 8.9035D-05, 8.7348D-05, 8.5713D-05, 8.4139D-05,
C    &  8.2627D-05, 8.1176D-05, 7.9772D-05, 7.8426D-05, 7.7126D-05,
C    &  7.5892D-05, 7.4711D-05, 7.3554D-05, 7.2467D-05, 7.1431D-05,
C    &  7.0423D-05, 6.9482D-05, 6.8559D-05, 6.7697D-05, 6.6872D-05,
C    &  6.6078D-05, 6.5333D-05, 6.4620D-05, 6.3951D-05, 6.3304D-05,
C    &  6.2701D-05, 6.2129D-05, 6.1584D-05, 6.1077D-05, 6.0594D-05,
C    &  6.0142D-05, 5.9717D-05, 5.9324D-05, 5.8940D-05, 5.8594D-05,
C    &  5.8271D-05/
